home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Interactive Media Design Review 1999
/
Interactive Media Design Review 1999.iso
/
pc
/
Demos
/
Bombardier_PC
/
DATACH.CST
/
00055_Script_New Behavior
< prev
next >
Wrap
Text File
|
1999-03-07
|
3KB
|
91 lines
on exitFrame
global currentplane, OCreentryflag, OBctotal
global currentChartName, compdrawplace
global cheraseflag, defaultflag
global flag_Hour
set cheraseflag = true
set compdrawplace = "hourly"
-- getAircrafts
initcurrentplane
if flag_Hour then
if OCreentryflag <> 3 then
getOCHours
getOCRegions
if defaultflag <> true then
getOCDefaults
set defaultflag = true
end if
set flag_hour = FALSE
else
set OCreentryflag = 1
end if
end if
set currentChartName = "all"
set the text of field "displane" = "No Competitor"
set OBctotal = 0
getAircrafts
set the text of field "cmisc" = " "
set the text of field "capu" = " "
set the text of field "cengine" = " "
set the text of field "cair" = " "
set the text of field "cfuel" = " "
set the text of field "aaplanename" = currentplane
set the text of field "aachplanename" = currentplane
set the text of field "acplanename" = "No Competitor"
set the text of field "achplanename" = " "
set the text of field "acbartotal" = " "
set the text of field "aabartotal" = " "
-- mainbars
-- if (OCreentryflag = 3) and (length(the text of field "displane")>3) then
-- compbars
-- end if
updatestage
end
--on enterframe
-- puppetsprite 22,true
-- set the rect of sprite 22 = rect(292,230,483,413)
--end
on prepareframe
global flag_Hour
set compdrawplace = "hourly"
clearpups
if flag_Hour then
getAircrafts
end if
set the text of field "cmisc" = " "
set the text of field "capu" = " "
set the text of field "cengine" = " "
set the text of field "cair" = " "
set the text of field "cfuel" = " "
set the text of field "amisc" = " "
set the text of field "aapu" = " "
set the text of field "aengine" = " "
set the text of field "aair" = " "
set the text of field "afuel" = " "
set the text of field "Lcairprice" = " "
set the text of field "Lcresidual" = " "
set the text of field "Lcdepreciation" = " "
set the text of field "Lclease" = " "
set the text of field "Lcnadirect" = " "
set the text of field "Lcnafixed" = " "
set the text of field "Lcedirect" = " "
set the text of field "Lcefixed" = " "
set the text of field "Lcnabudget" = " "
set the text of field "Lcebudget" = " "
set the text of field "Ldairprice" = " "
set the text of field "Ldresidual" = " "
set the text of field "Lddepreciation" = " "
set the text of field "Ldlease" = " "
set the text of field "Ldnadirect" = " "
set the text of field "Ldnafixed" = " "
set the text of field "Ldedirect" = " "
set the text of field "Ldefixed" = " "
set the text of field "Ldnabudget" = " "
set the text of field "Ldebudget" = " "
-- updatestage
end